# capturing the raw data in a variable
rawdata <- c(55,56,98,100,15,12,33,45,32,67,82,19,25)

#compute the max, min and report summary stats 
max(rawdata)
min(rawdata)
summary(rawdata)

#plot raw data with line joining points
plot(rawdata, type="b", xlab = "Time in Seconds", ylab = "CPU Idle Level")

# plot line on data for max, min and mean
abline(h=max(rawdata), v=0)
abline(h=min(rawdata), v=0)
abline(h=mean(rawdata), v=0)

